//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Soob_SH.h"
#include "KART_ABON.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma resource "*.dfm"
TfrSoob_SH *frSoob_SH;
//---------------------------------------------------------------------------
__fastcall TfrSoob_SH::TfrSoob_SH(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrSoob_SH::FormShow(TObject *Sender)
{
edEnter->SetFocus();	
}
//---------------------------------------------------------------------------
void __fastcall TfrSoob_SH::FormKeyPress(TObject *Sender, char &Key)
{
if (Key == 27){
frSoob_SH->Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TfrSoob_SH::FormKeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 if (Key ==89){
 frKART_ABON->ADD_PRIB();
 frSoob_SH->Close();
 }
}
//---------------------------------------------------------------------------
void __fastcall TfrSoob_SH::edEnterKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if (Key == VK_RETURN){
frKART_ABON->COUNTER();
frSoob_SH->Close();
}//enter
}
//---------------------------------------------------------------------------

